home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
text
/
edit
/
envcpp11.lha
/
envCPP11
/
arexx
/
make.ged
Wrap
Text File
|
1996-10-16
|
2KB
|
64 lines
/* $VER: 1.1, ©1996 Dietmar Eilert. Call make utility (DICE/SAS) */
OPTIONS RESULTS /* enable return codes */
if (LEFT(ADDRESS(), 6) ~= "GOLDED") then /* not started by GoldEd ? */
address 'GOLDED.1'
'LOCK CURRENT RELEASE=4' /* lock GUI, gain access */
if (RC ~= 0) then
exit
OPTIONS FAILAT 6 /* ignore warnings */
SIGNAL ON SYNTAX /* ensure clean exit */
/* ------------------------- INSERT YOUR CODE HERE: -------------------- */
'QUERY CAT'
isGerman = (result = "deutsch")
'QUERY MODIFY'
if (result = 'TRUE') then do
if (isGerman) then
'REQUEST BODY="Datei wurde verändert. Speichern ?" BUTTON="!SPEICHERN|Abbrechen"'
else
'REQUEST BODY="File has been changed. Save it ?" BUTTON="!SAVE|_Cancel"'
if (result = 1) then
'SAVE ALL'
end
'QUERY PATH VAR=PATH'
DMAKEFILE = PATH || 'dmakefile'
SMAKEFILE = PATH || 'smakefile'
if (exists(DMAKEFILE) | exists(SMAKEFILE)) then do
if (exists(DMAKEFILE)) then
'RUN ASYNC PRIO=0 STACK=8192 CMD="dmake"'
else
'RUN ASYNC PRIO=0 STACK=8192 CMD="smake"'
end
else do
if (isGerman) then
'REQUEST PROBLEM="Kein Makefile in ' || path || ' ?!"'
else
'REQUEST PROBLEM="No makefile in ' || path || ' ?!"'
end
/* ---------------------------- END OF YOUR CODE ----------------------- */
'UNLOCK' /* VERY important: unlock GUI */
EXIT
SYNTAX:
SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
'UNLOCK'
EXIT